home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / print select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  85 lines

  1. 3 gosub10000
  2. 5 b=198
  3. 6 bl$="                                       ":open15,8,15,"i0":close15
  4. 7 open2,8,2,"$":forx=0to156:get#2,a$:     :next
  5. 8 get#2,a$:si=val(a$):close2
  6. 9 poke53281,1:poke53280,5
  7. 10 print"[147][144]        [204][207][193][196][211][212][193][210][160][200]ardcopy [211]etup         "
  8. 20 print"[196]o you have:":print:print"  [195]ommodore 1525"
  9. 30 print"  [195]ommodore 1526":print"  [195]ommodore [205][208][211] 801"
  10. 40 print"  [212]ymac [195]onnection"
  11. 50 print"  [195]ard/?[160][193], [194], or +[199]"
  12. 60 print"  [194]us[195]ard [201][197][197][197]"
  13. 70 print"or any other 1525-compatible setup?"
  14. 80 pokeb,.:waitb,1:geta$
  15. 90 ifa$="y"ora$="[217]"thenpa=4:sa=7:c8%=-1:   goto300
  16. 100 ifa$<>"n"anda$<>"[206]"then80
  17. 110 print"[196]o you have a [195]ommodore 1520?"
  18. 115 forx=0to10:printbl$:next
  19. 120 pokeb,.:waitb,1:geta$
  20. 130 ifa$="y"ora$="[217]"thenpa=6:sa=0:          goto300
  21. 140 ifa$<>"n"anda$<>"[206]"then120
  22. 150 print"[196]o you have an old [195]ommodore 1515?"
  23. 155 forx=0to10:printbl$:next
  24. 160 pokeb,.:waitb,1:geta$
  25. 170 ifa$="y"ora$="[217]"thenpa=4:sa=7:c8%=0:    goto300
  26. 180 ifa$<>"n"anda$<>"[206]"then160
  27. 190 :
  28. 200 print"[207].[203]. then, please enter the correct"
  29. 202 print"data for your printer:"
  30. 203 forx=0to10:printbl$:next
  31. 204 print"[197]nter primary   address --";:inputpa$:pa=val(pa$)
  32. 206 print:print:print"[197]nter secondary address --";:inputsa$:sa=val(sa$)
  33. 300 :
  34. 301 print"":forx=0to10:printbl$:next
  35. 302 print"[208]rimary address of"pa"[157]."
  36. 304 print"[211]econdary address of"sa"[157]."
  37. 305 :
  38. 310 print"[193]re these selections correct?"
  39. 312 print"          [[217]/[206]] or [209] to [209]uit"
  40. 315 pokeb,0:waitb,1:geta$
  41. 320 ifa$<>"y"anda$<>"n"anda$<>"q"then315
  42. 325 :
  43. 330 ifa$="q"then1000
  44. 340 ifa$="n"then10
  45. 345 goto500
  46. 350 :
  47. 360 print"":forx=0to20:printbl$:next
  48. 370 print"   [208]lease make sure side"si"of your"
  49. 375 print"   [204][207][193][196][211][212][193][210] disk is in your drive."
  50. 380 print" [208]lease press a key when you are ready."
  51. 381 print"      ([208]ress [209] to [209]uit)"
  52. 382 pokeb,0:waitb,1:geta$:ifa$="q"then1000
  53. 402 gosub20000
  54. 410 print"   [208]rint file is now on this side"
  55. 412 print"            of the disk."
  56. 416 return
  57. 450 :
  58. 500 gosub360:iffl=1then500
  59. 510 ifsi=1thensi=2:goto530
  60. 520 ifsi=2thensi=1
  61. 530 gosub360:iffl=1then530
  62. 540 print"":forx=0to20:printbl$:next
  63. 542 print"[208]rocess now complete."
  64. 600 print"[208]lace [204][207][193][196][211][212][193][210] [211]ide [207]ne in your drive"
  65. 610 print"and press any key to return to menu."
  66. 620 geta$:ifa$=""then620
  67. 1000 fordl=1to1000:next:load"custom ls boot",8
  68. 10000 cr$=chr$(13)
  69. 10005 open15,8,15
  70. 10010 open3,8,4,"setup"
  71. 10020 input#3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  72. 10030 close3
  73. 10040 close15
  74. 10050 pa=val(d$(4)):sa=val(d$(5))
  75. 10060 return
  76. 20000 close15:open15,8,15
  77. 20010 d$(4)=mid$(str$(pa),2)
  78. 20012 d$(5)=mid$(str$(sa),2)
  79. 20070 open3,8,4,"setup":cr$=chr$(13)
  80. 20080 print#15,"p"chr$(0)"";
  81. 20082 print#3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  82. 20100 close3
  83. 20110 close15
  84. 20120 return
  85.